home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / misc / optarg.sty < prev    next >
Text File  |  1993-07-15  |  948b  |  43 lines
  1. \def\newoptargcommand#1{%
  2.   \@ifnextchar({\@xoptargcmd{#1}}%
  3.                {\newcommand{#1}}%
  4. }
  5.  
  6. \def\@xoptargcmd#1(#2){%
  7. %  \@ifdefinable#1%
  8. %     {
  9.     \expandafter\def\expandafter#1\expandafter{%
  10.           \expandafter
  11.           \@ifnextchar
  12.           \expandafter
  13.           [%
  14.           \csname\string#1\expandafter\endcsname
  15.           \expandafter
  16.           {\csname\string#1\endcsname[#2]}}%
  17.        \expandafter\@zoptargcmd
  18.           \csname\string#1\endcsname
  19. }
  20.  
  21. \def\@zoptargcmd#1{%
  22.   \@ifnextchar[{\@zzoptargcmd#1}%
  23.                {\def#1[####1]}%
  24. }
  25.  
  26. \catcode`\?=11\relax
  27. \long\def\@zzoptargcmd#1[#2]#3{%
  28.   \@tempcnta#2\relax
  29.   \let#1\relax
  30.   \let\@?@\relax
  31.   \edef\@tempa{\long\def#1[\@?@1]}%
  32.   \@tempcntb \tw@
  33.   \@whilenum\@tempcnta>\z@
  34.       \do{%
  35.           \edef\@tempa{\@tempa\@?@\the\@tempcntb}%
  36.           \advance\@tempcntb \@ne
  37.           \advance\@tempcnta \m@ne}%
  38.   \let\@?@##%
  39.   \@tempa{#3}%
  40. }
  41. \catcode`\?=12\relax
  42. \endinput
  43.